Cream of the Crop 26/Cream of the Crop 26.iso/os2/octa209s.zip/octave-2.09/libs/f2c/libf77/i_abs.c

C/C++ Source or Header | 1994-05-06 | 159b | 13 lines

#include "f2c.h"

#ifdef KR_headers
integer i_abs(x) integer *x;
#else
integer i_abs(integer *x)
#endif
{
if(*x >= 0)
    return(*x);
return(- *x);
}